<%@LANGUAGE="VBSCRIPT"%> <% set rsBanner = Server.CreateObject("ADODB.Recordset") rsBanner.ActiveConnection = MM_ELEDATA_STRING rsBanner.Source = "SELECT * FROM BANNERS " rsBanner.CursorType = 3 rsBanner.CursorLocation = 2 rsBanner.LockType = 1 rsBanner.Open() rsBanner_numRows = 0 'the following codes are added to rotate the banners: Dim rndMax rndMax = CInt(rsBanner.RecordCount) rsBanner.MoveFirst Dim rndNumber Randomize Timer rndNumber = Int(RND * rndMax) rsBanner.Move rndNumber 'end of codes. %> <% Dim RsHeadlines__MMColParam RsHeadlines__MMColParam = "1" If (Request.QueryString("Headline_ID") <> "") Then RsHeadlines__MMColParam = Request.QueryString("Headline_ID") End If %> <% Dim RsHeadlines Dim RsHeadlines_numRows Set RsHeadlines = Server.CreateObject("ADODB.Recordset") RsHeadlines.ActiveConnection = MM_ELEDATA_STRING RsHeadlines.Source = "SELECT * FROM Headlines WHERE Headline_ID = " + Replace(RsHeadlines__MMColParam, "'", "''") + " ORDER BY Headline_ID DESC" RsHeadlines.CursorType = 0 RsHeadlines.CursorLocation = 2 RsHeadlines.LockType = 1 RsHeadlines.Open() RsHeadlines_numRows = 0 %>

Latest & Most Recent News Story <%=(RsHeadlines.Fields.Item("Title").Value)%> Posted: <%=(RsHeadlines.Fields.Item("Post_Date").Value)%> <%=(RsHeadlines.Fields.Item("Sub_Title").Value)%> <%=(RsHeadlines.Fields.Item("Story").Value)%>   Latest News <% While ((Repeat1__numRows <> 0) AND (NOT RsHeadlines.EOF)) %> " class="mainmenulinks"><%=(RsHeadlines.Fields.Item("Title").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsHeadlines.MoveNext() Wend %>

<% rsBanner.Close() %> <% RsHeadlines.Close() %>